home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 February / Chip_2000-02_cd.bin / zkuste / MacOS / FILES / EARTH.SIT / EarthBrowser™ 1.0.2 / Data / Geofile / toolwind.gdx < prev    next >
Encoding:
Text File  |  1999-12-27  |  4.6 KB  |  214 lines  |  [TEXT/PLER]

  1. //
  2. // EarthBrowser - toolwind.gdx
  3. // Copyright 1999 Lunar Software Inc.
  4. //
  5.  
  6. <GEOINDEX VERSION=1 HEIGHT=43 WIDTH=110 BACKGROUND=#DDDDDD>
  7.  
  8. <global ShowVolcanoes=0/>
  9. <global ShowWebcams=0/>
  10. <Class ID="toolbarbutton" SUPERCLASS="Label">
  11.     <Variable>
  12.         mButtonVarRef = "";
  13.         mButtonOn=-1;
  14.     </Variable>
  15.     
  16.     <Function>
  17.         INIT(xOffset, yOffset, buttonURL, buttonOn, varRefName) {
  18.             mButtonVarRef = varRefName;
  19.             objLayer = 2;
  20.             objDisplayRange = 1000;
  21.             objAlignment = (bottom, left);
  22.             objXOffset = xOffset;
  23.             objYOffset = yOffset;
  24.             objImageURL = buttonURL;
  25.             mButtonOn = buttonOn;
  26.             if(buttonOn)
  27.                 objFrameIndex = 1;
  28.             else
  29.                 objFrameIndex = 0;
  30.         }
  31.     </Function>
  32.     
  33.     <Function>
  34.         Click() {
  35.             SetButtonOn(!mButtonOn);
  36.         }
  37.     </Function>
  38.     
  39.     <Function>
  40.         SetButtonOn(isButtonOn) {
  41.             if(mButtonOn != isButtonOn) {
  42.                 mButtonOn = isButtonOn;
  43.                 VARREF(mButtonVarRef) = mButtonOn;
  44.                 if(mButtonOn)
  45.                     objFrameIndex = 1;
  46.                 else
  47.                     objFrameIndex = 0;
  48.             } else
  49.                 objFrameIndex = 0;
  50.         }
  51.     </Function>
  52.     
  53.     <Function>
  54.         MouseOver(isOver) {
  55.             if(isOver) {
  56.                 if(mButtonOn)
  57.                     objFrameIndex = 3;
  58.                 else
  59.                     objFrameIndex = 2;
  60.             } else {
  61.                 if(mButtonOn)
  62.                     objFrameIndex = 1;
  63.                 else
  64.                     objFrameIndex = 0;
  65.             }
  66.         }
  67.     </Function>
  68.     
  69. </Class>
  70.  
  71. <Class ID="SimpleButton" SUPERCLASS="Label">
  72.     <Function>
  73.         INIT(xOffset, yOffset, buttonURL) {
  74.             objLayer = 2;
  75.             objDisplayRange = 1000;
  76.             objAlignment = (bottom, left);
  77.             objXOffset = xOffset;
  78.             objYOffset = yOffset;
  79.             objImageURL = buttonURL;
  80.             objFrameIndex = 0;
  81.         }
  82.     </Function>
  83.     
  84.     <Function>
  85.         MouseOver(isOver) {
  86.             if(isOver)
  87.                 objFrameIndex = 2;
  88.             else
  89.                 objFrameIndex = 0;
  90.         }
  91.     </Function>
  92. </Class>
  93.  
  94.     // Clouds
  95. <Instance ID="CloudTool" CLASS="toolbarbutton">
  96.     INIT(1, 22, "Images/Labels/CloudLabel.gif", ShowClouds, "ShowClouds");
  97.     objToolTip = "Latest Clouds";
  98. </Instance>
  99.  
  100.     // Shadows
  101. <Instance ID="ShadowTool" CLASS="toolbarbutton">
  102.     INIT(23, 22, "Images/Labels/SunLabel.gif", ShowShadows, "ShowShadows");
  103.     objToolTip = "Night Shadows";
  104. </Instance>
  105.  
  106.     // Tool Buttons
  107. <Class ID="ZoomOutButton" SUPERCLASS="toolbarbutton">
  108.     <Function>
  109.         Click() {
  110.             if(!mButtonOn) {
  111.                 SUPERCLASS::Click();
  112.                 ToolType = 2;
  113.                 HandTool->SetButtonOn(false);
  114.                 ZoomInTool->SetButtonOn(false);
  115.             }
  116.         }
  117.     </Function>
  118. </Class>
  119. <Instance ID="ZoomOutTool" CLASS="ZoomOutButton">
  120.     INIT(45, 22, "Images/Labels/ZoomOutLabel.gif", ToolType == 2, "");
  121.     objToolTip = "Zoom Out";
  122. </Instance>
  123.  
  124.  
  125. <Class ID="ZoomInButton" SUPERCLASS="toolbarbutton">
  126.     <Function>
  127.         Click() {
  128.             if(!mButtonOn) {
  129.                 SUPERCLASS::Click();
  130.                 ToolType = 1;
  131.                 HandTool->SetButtonOn(false);
  132.                 ZoomOutTool->SetButtonOn(false);
  133.             }
  134.         }
  135.     </Function>
  136. </Class>
  137. <Instance ID="ZoomInTool" CLASS="ZoomInButton">
  138.     INIT(67, 22, "Images/Labels/ZoomInLabel.gif", ToolType == 1, "");
  139.     objToolTip = "Zoom In";
  140. </Instance>
  141.  
  142. <Class ID="HandButton" SUPERCLASS="toolbarbutton">
  143.     <Function>
  144.         Click() {
  145.             if(!mButtonOn) {
  146.                 SUPERCLASS::Click();
  147.                 ToolType = 0;
  148.                 ZoomInTool->SetButtonOn(false);
  149.                 ZoomOutTool->SetButtonOn(false);
  150.             }
  151.         }
  152.     </Function>
  153. </Class>
  154. <Instance ID="HandTool" CLASS="HandButton">
  155.     INIT(89, 22, "Images/Labels/HandLabel.gif", ToolType == 0, "");
  156.     objToolTip = "Rotate";
  157. </Instance>
  158.  
  159. <Class ID="FullEarthButton" SUPERCLASS="SimpleButton">
  160.     <Function> Click() { FullEarthView(); } </Function>
  161. </Class>
  162. <Instance ID="EarthTool" CLASS="FullEarthButton">
  163.     INIT(1, 1, "Images/Labels/EarthLabel.gif");
  164.     objToolTip = "Default View";
  165. </Instance>
  166.  
  167.     // Volcanoes
  168. <Class ID="VolcanoButton" SUPERCLASS="toolbarbutton">
  169.     <Function>
  170.         Click() {
  171.             SUPERCLASS::Click();
  172.             if(mButtonOn)
  173.                 ADDMAINGEOINDEX("geofile://volcano.gdx");
  174.             else
  175.                 REMOVEMAINGEOINDEX("geofile://volcano.gdx");
  176.         }
  177.     </Function>
  178. </Class>
  179. <Instance ID="VolcanoTool" CLASS="VolcanoButton">
  180.     INIT(23, 1, "Images/Labels/VolcanoLabel.gif", ShowVolcanoes, "ShowVolcanoes");
  181.     objToolTip = "Volcanoes";
  182. </Instance>
  183.  
  184.  
  185.     // Earthquakes
  186. <Instance ID="QuakeTool" CLASS="toolbarbutton">
  187.     INIT(45, 1, "Images/Labels/QuakeLabel.gif", ShowQuakes, "ShowQuakes");
  188.     objToolTip = "Latest Earthquakes";
  189. </Instance>
  190.  
  191.  
  192. <Class ID="CamButton" SUPERCLASS="toolbarbutton">
  193.     <Function>
  194.         Click() {
  195.             SUPERCLASS::Click();
  196.             if(mButtonOn)
  197.                 ADDMAINGEOINDEX("geofile://WebCams.gdx");
  198.             else
  199.                 REMOVEMAINGEOINDEX("geofile://WebCams.gdx");
  200.         }
  201.     </Function>
  202. </Class>
  203. <Instance ID="WebCamTool" CLASS="CamButton">
  204.     INIT(67, 1, "Images/Labels/WebcamsLabel.gif", ShowWebcams, "ShowWebcams");
  205.     objToolTip = "Web Cameras";
  206. </Instance>
  207.  
  208. <Instance ID="WeatherTool" CLASS="toolbarbutton">
  209.     INIT(89, 1, "Images/Labels/WeatherLabel.gif", ShowWeather, "ShowWeather");
  210.     objToolTip = "Weather";
  211. </Instance>
  212.  
  213.  
  214. </GEOINDEX>